object SendMsg: TSendMsg
  Left = 254
  Top = 205
  Width = 601
  Height = 323
  Caption = 'set at run time'
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'System'
  Font.Style = []
  Position = poScreenCenter
  OnActivate = FormActivate
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 16
  object Memo1: TMemo
    Left = 5
    Top = 6
    Width = 579
    Height = 251
    Lines.Strings = (
      'Memo1')
    ScrollBars = ssVertical
    TabOrder = 0
  end
  object Send: TButton
    Left = 300
    Top = 264
    Width = 87
    Height = 25
    Hint = 'Send message & exit'
    Caption = '&Send'
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'System'
    Font.Style = [fsBold]
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 1
    OnClick = SendClick
  end
  object PhoneMsg: TButton
    Left = 482
    Top = 264
    Width = 87
    Height = 25
    Hint = 'Do a phone call message'
    Caption = '&Phone Msg'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 2
    OnClick = PhoneMsgClick
  end
  object Cancel: TButton
    Left = 392
    Top = 264
    Width = 87
    Height = 25
    Hint = 'Close window without sending'
    Caption = '&Cancel'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 3
    OnClick = CancelClick
  end
  object x: TPanel
    Left = 596
    Top = 296
    Width = 0
    Height = 0
    Caption = 'x'
    TabOrder = 4
    Visible = False
  end
  object PasteFromClip: TButton
    Left = 106
    Top = 264
    Width = 87
    Height = 25
    Hint = 'Paste text from Windows Clipboard'
    Caption = '&Paste'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 5
    OnClick = PasteFromClipClick
  end
  object CutToClip: TButton
    Left = 11
    Top = 264
    Width = 87
    Height = 25
    Hint = 'Copy text to Windows Clipboard'
    Caption = '&Copy'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 6
    OnClick = CutToClipClick
  end
end